home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / scherz programme / explode / exp.a < prev    next >
Text File  |  1996-04-07  |  504b  |  23 lines
  1. *
  2. * exp.a - assembler interface for exploding windows code
  3. *
  4. * Bruno Costa - 30 Aug 89
  5. *
  6.  
  7.     xdef    _ExplodeWindow
  8.     xref    _DoExplode
  9.     xref    _openWindow
  10.  
  11.         section "text",code
  12.  
  13. _ExplodeWindow:
  14.     move.L    A0,-(A7)        ; pass NewWindow parameter on stack 
  15.     jsr    _DoExplode        ; call C function that "explodes"
  16.     movea.L    (A7),A0            ; restore A0 to point to NewWindow
  17.     addq.L    #4,A7            ; restore stack pointer
  18.     movea.L    _openWindow,A1        ; load original OpenWindow address
  19.     jsr    (A1)            ; call it to open the window
  20.     rts
  21.  
  22.     END
  23.